' BASIC Anywhere Machine program by Charlie Veniot
' mod of Joe4.bas (found in https://qb45.org/download.php?id=1076)
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.21 at 03.49
1 SCREEN 12 
2 RANDOMIZE TIMER 
3 vars& = (INT(RND * 99) + 1) * 10000 + (INT(RND * 99) + 1) * 100 + (INT(RND * 99) + 1) 
4 FOR t = 0 TO 100 STEP .1 
5 LINE -((((vars& \ 100) MOD 100) + (vars& \ 10000)) * COS(t) - ((vars& \ 10000) + (vars& MOD 100)) * COS(((((vars& \ 100) MOD 100) + (vars& \ 10000)) / (vars& \ 10000)) * t) + 320, (((vars& \ 100) MOD 100) + (vars& \ 10000)) * SIN(t) - ((vars& \  10000) + (vars& MOD 100)) * SIN(((((vars& \ 100) MOD 100) + (vars& \ 10000)) / (vars& \ 10000)) * t) + 240) 
_display
6 NEXT t 
7 SLEEP 1 
8 CLS 
9 IF INKEY$ <> "q" THEN GOTO 2